home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / COMM / VSSCM32 / VSSCM32.ZIP / vsscomdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-19  |  1.5 KB  |  67 lines
  1. unit vsscomdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, VSSComm32, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     Button3: TButton;
  14.     Memo1: TMemo;
  15.     VSSComm321: TVSSComm32;
  16.     StatusBar1: TStatusBar;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button3Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.     procedure VSSComm321ReceiveData(Buffer: Pointer; BufferLength: Word);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. begin
  36. VSSComm321.startcomm;
  37. StatusBar1.Panels.Items[0].Text :='Comm Open';
  38. end;
  39.  
  40. procedure TForm1.Button3Click(Sender: TObject);
  41. begin
  42. VSSComm321.stopcomm;
  43. StatusBar1.Panels.Items[0].Text :='Comm Closed';
  44. StatusBar1.Panels.Items[1].Text :='';
  45. memo1.lines.clear;
  46. end;
  47.  
  48. procedure TForm1.Button2Click(Sender: TObject);
  49. var
  50.    sendstring: String;
  51. begin
  52. sendstring:='This is a test to see if the data is returned from the Comm Port';
  53.  
  54. VSSComm321.writecommdata(pchar(sendstring),length(sendstring));
  55. StatusBar1.Panels.Items[1].Text :='Sending Data';
  56. end;
  57.  
  58. procedure TForm1.VSSComm321ReceiveData(Buffer: Pointer;
  59.   BufferLength: Word);
  60. begin
  61. StatusBar1.Panels.Items[1].Text :='Receiving Data';
  62. memo1.lines.add(strpas(buffer));
  63. StatusBar1.Panels.Items[1].Text :='Received Data';
  64. end;
  65.  
  66. end.
  67.